library(ggplot2)

d <- read.table("fig1.txt",header=T)
d$pe <- d$c1
d$se <- d$c2
d$lb <- d$pe- 1.64*d$se
d$ub <- d$pe+ 1.64*d$se
d$group <- factor(d$c3,levels=c(7,6,5,4,3,2,1),
                  labels=c("Pro-Democratic Party Index","Closed-Minded","Ignorant","Represents Interests","Net Likes","Feeling Thermometer","Party ID")[7:1])

f1 = ggplot(data = d, aes(x = group, y = pe, width=0.5,ymin = lb, ymax = ub))
f1 = f1 + geom_pointrange(width=.5, size=1, position = position_dodge(width=.5))
f1 = f1 + scale_shape_manual(values=c(22,22))  
f1 = f1 + scale_fill_manual(values=c("black","black"))
f1 = f1 + coord_flip()
f1 = f1 + geom_hline(yintercept=0, linetype="longdash", size=1)
f1 = f1 + ylab("                    Treatment Effect") + xlab("Dependent Variable") 
print(f1)



